home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
turbovis
/
tvutil01.zip
/
ALEXLEVI.EXE
/
ALEXLEVI
/
DEMO
/
DEMO_PRN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-04-12
|
4KB
|
96 lines
(*
*****************************************************************************
* *
* This font was made by Alex Levitas' "Epson FX-80 Font Editor". *
* *
*****************************************************************************
Copy this array to the printer to change printer draft font.
W A R N I N G ! ! !
This ISN'T code. It DOES NOT check printer existence or state. It's ONLY
data that must be copied to printer to change printer font ! !
To use this array in your program insert the directive
{$I DEMO_PRN.PAS}
If you want to use more than one changed font in your program, you
must change array name in each source file.
*)
const
EpsonFont: Array [1..668] of Byte =
(
27, 64,
27,120, 0,
27, 54,
27, 58, 0, 0, 0,
27, 38, 0, 46, 46,
132, 3, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0,
27, 38, 0, 65, 90,
139, 0, 1, 6, 73,144, 40,192, 62, 65, 62, 1,
139, 0,145,110,129,126,129, 0,145,110,145,110,
139, 0, 60, 66,188, 67,148, 9,240, 1,226, 4,
139, 0,145,110,129,126,129, 0,129,124, 2, 60,
139, 0,145,110,129,126,129, 16,129, 16,129, 66,
139, 0,145,110,129,126,128, 16,128, 16,128, 64,
139, 0, 60, 66,188, 67,136, 17,232, 1,202, 4,
139, 0,145,110,129,126,128, 16,129, 94, 1, 78,
139, 0, 65, 16,129,126,129,126,128, 0,128, 0,
139, 0, 6, 72,129, 16,129,126,129,126,128, 0,
139, 0,145,110,129,126,128, 20,129, 86, 9, 82,
139, 0,145,110,129,126,129, 0,129, 64, 1, 2,
139, 0,145,110,129,126,129, 16,239, 16,128,127,
139, 0,145,110,129,112, 12, 48, 14,129,126,129,
139, 0, 60, 66,188, 67,136, 17,224, 1,226, 28,
139, 0,145,110,129,126,129, 16,129,114, 0, 96,
139, 0, 60, 66,188, 67,128, 21,226, 0,226, 29,
139, 0,145,110,129,126,128, 16,142,113, 14, 97,
139, 0,100,146, 97,144, 1,144, 9,150, 73, 6,
139, 0, 72,148, 34,220, 35,192, 1,128, 1,130,
139, 0,145,110, 1,126, 1, 0, 1,126, 0, 1,
139, 0,145,110, 1,126, 1, 0, 2, 60, 0, 64,
139, 0,145,110,129,126, 1, 16,239, 16, 1,254,
139, 0,129, 64,167, 88, 36, 26,229, 2,129, 0,
139,128,120,131,120, 1, 8,129,112,137,118, 0,
139, 0, 65,130, 1,148, 9,144, 33,144, 65,134,
27, 38, 0, 97,122,
139, 0, 2, 0, 46, 0, 41, 0, 30, 0, 2, 0,
139, 0,130, 0,254, 0, 33, 0, 30, 0, 2, 0,
137, 0, 18, 0, 30, 0, 33, 0, 18, 0, 0, 0,
139, 0, 2, 0, 30, 0,161, 0,254, 0, 2, 0,
139, 0, 18, 0, 30, 0, 41, 0, 26, 0, 16, 0,
136, 0, 2, 0,127,128, 18,128, 0, 0, 0, 0,
11, 0, 36, 0, 61, 0, 69, 0, 61, 2, 32, 0,
139, 0,130, 0,255, 0, 32, 0, 31, 0, 2, 0,
135, 0, 2, 0, 47, 0, 2, 0, 0, 0, 0, 0,
8, 0, 17, 0, 89, 0, 21, 2, 0, 0, 0, 0,
139, 0,130, 0,255, 0, 40, 0, 23, 0, 2, 0,
135, 0, 66, 0,255, 0, 66, 0, 0, 0, 0, 0,
139, 0, 32, 31, 32, 0, 63, 0, 32, 31, 32, 2,
139, 0, 34, 0, 63, 0, 32, 0, 31, 0, 2, 0,
139, 0, 18, 0, 30, 0, 33, 0, 30, 0, 18, 0,
11, 0, 36, 0, 63, 0, 68, 0, 60, 0, 36, 0,
11, 0, 36, 0, 60, 0, 68, 0, 63, 0, 37, 0,
138, 0, 18, 0, 31, 0, 18, 0, 16, 8, 0, 0,
11, 0, 17, 42, 0, 42, 0, 42, 0, 42, 68, 0,
138, 0, 34, 0,127, 0, 34, 0, 2, 4, 0, 0,
139, 0, 18, 0, 63, 0, 1, 0, 63, 0, 18, 0,
138, 0, 18, 0, 63, 0, 1, 0, 30, 32, 0, 0,
139, 0, 34, 28, 34, 0, 2, 60, 2, 0, 34, 28,
139, 0, 32, 2, 32, 4, 16, 8, 20, 2, 32, 2,
11, 0, 69, 0,125, 0, 5, 0,125, 2, 64, 0,
139, 0, 18, 36, 2, 40, 2, 40, 2, 40, 18, 36,
27, 37, 1, 0,
7
);